TSTP Solution File: PUZ084^1 by Lash---1.13

View Problem - Process Solution

%------------------------------------------------------------------------------
% File     : Lash---1.13
% Problem  : PUZ084^1 : TPTP v8.1.2. Released v4.0.0.
% Transfm  : none
% Format   : tptp:raw
% Command  : lash -P picomus -M modes -p tstp -t %d %s

% Computer : n017.cluster.edu
% Model    : x86_64 x86_64
% CPU      : Intel(R) Xeon(R) CPU E5-2620 v4 2.10GHz
% Memory   : 8042.1875MB
% OS       : Linux 3.10.0-693.el7.x86_64
% CPULimit : 300s
% WCLimit  : 300s
% DateTime : Thu Aug 31 13:21:49 EDT 2023

% Result   : Theorem 0.12s 0.40s
% Output   : Proof 0.12s
% Verified : 
% SZS Type : ERROR: Analysing output (MakeTreeStats fails)

% Comments : 
%------------------------------------------------------------------------------
thf(ty_wife,type,
    wife: ( $i > $i > $o ) > $i > $i > $o ).

thf(ty_eigen__1,type,
    eigen__1: $i > $o ).

thf(ty_peter,type,
    peter: $i > $i > $o ).

thf(ty_eigen__0,type,
    eigen__0: $i ).

thf(sP1,plain,
    ( sP1
  <=> ( eigen__1 @ eigen__0 ) ),
    introduced(definition,[new_symbols(definition,[sP1])]) ).

thf(sP2,plain,
    ( sP2
  <=> ( wife @ peter @ eigen__0 @ eigen__0 ) ),
    introduced(definition,[new_symbols(definition,[sP2])]) ).

thf(sP3,plain,
    ( sP3
  <=> ! [X1: $i] : ( wife @ peter @ X1 @ X1 ) ),
    introduced(definition,[new_symbols(definition,[sP3])]) ).

thf(sP4,plain,
    ( sP4
  <=> ! [X1: $i] :
        ( ( wife @ peter @ eigen__0 @ X1 )
       => ( eigen__1 @ X1 ) ) ),
    introduced(definition,[new_symbols(definition,[sP4])]) ).

thf(sP5,plain,
    ( sP5
  <=> ( sP2
     => sP1 ) ),
    introduced(definition,[new_symbols(definition,[sP5])]) ).

thf(def_meq_ind,definition,
    ( meq_ind
    = ( ^ [X1: mu,X2: mu,X3: $i] : ( X1 = X2 ) ) ) ).

thf(def_meq_prop,definition,
    ( meq_prop
    = ( ^ [X1: $i > $o,X2: $i > $o,X3: $i] :
          ( ( X1 @ X3 )
          = ( X2 @ X3 ) ) ) ) ).

thf(def_mnot,definition,
    ( mnot
    = ( ^ [X1: $i > $o,X2: $i] : ( (~) @ ( X1 @ X2 ) ) ) ) ).

thf(def_mor,definition,
    ( mor
    = ( ^ [X1: $i > $o,X2: $i > $o,X3: $i] :
          ( ( X1 @ X3 )
          | ( X2 @ X3 ) ) ) ) ).

thf(def_mand,definition,
    ( mand
    = ( ^ [X1: $i > $o,X2: $i > $o] : ( mnot @ ( mor @ ( mnot @ X1 ) @ ( mnot @ X2 ) ) ) ) ) ).

thf(def_mimplies,definition,
    ( mimplies
    = ( ^ [X1: $i > $o,X2: $i > $o] : ( mor @ ( mnot @ X1 ) @ X2 ) ) ) ).

thf(def_mimplied,definition,
    ( mimplied
    = ( ^ [X1: $i > $o,X2: $i > $o] : ( mor @ ( mnot @ X2 ) @ X1 ) ) ) ).

thf(def_mequiv,definition,
    ( mequiv
    = ( ^ [X1: $i > $o,X2: $i > $o] : ( mand @ ( mimplies @ X1 @ X2 ) @ ( mimplies @ X2 @ X1 ) ) ) ) ).

thf(def_mxor,definition,
    ( mxor
    = ( ^ [X1: $i > $o,X2: $i > $o] : ( mnot @ ( mequiv @ X1 @ X2 ) ) ) ) ).

thf(def_mforall_ind,definition,
    ( mforall_ind
    = ( ^ [X1: mu > $i > $o,X2: $i] :
        ! [X3: mu] : ( X1 @ X3 @ X2 ) ) ) ).

thf(def_mforall_prop,definition,
    ( mforall_prop
    = ( ^ [X1: ( $i > $o ) > $i > $o,X2: $i] :
        ! [X3: $i > $o] : ( X1 @ X3 @ X2 ) ) ) ).

thf(def_mexists_ind,definition,
    ( mexists_ind
    = ( ^ [X1: mu > $i > $o] :
          ( mnot
          @ ( mforall_ind
            @ ^ [X2: mu] : ( mnot @ ( X1 @ X2 ) ) ) ) ) ) ).

thf(def_mexists_prop,definition,
    ( mexists_prop
    = ( ^ [X1: ( $i > $o ) > $i > $o] :
          ( mnot
          @ ( mforall_prop
            @ ^ [X2: $i > $o] : ( mnot @ ( X1 @ X2 ) ) ) ) ) ) ).

thf(def_mtrue,definition,
    ( mtrue
    = ( ^ [X1: $i] : $true ) ) ).

thf(def_mfalse,definition,
    ( mfalse
    = ( mnot @ mtrue ) ) ).

thf(def_mbox,definition,
    ( mbox
    = ( ^ [X1: $i > $i > $o,X2: $i > $o,X3: $i] :
        ! [X4: $i] :
          ( ( (~) @ ( X1 @ X3 @ X4 ) )
          | ( X2 @ X4 ) ) ) ) ).

thf(def_mdia,definition,
    ( mdia
    = ( ^ [X1: $i > $i > $o,X2: $i > $o] : ( mnot @ ( mbox @ X1 @ ( mnot @ X2 ) ) ) ) ) ).

thf(def_mreflexive,definition,
    ( mreflexive
    = ( ^ [X1: $i > $i > $o] :
        ! [X2: $i] : ( X1 @ X2 @ X2 ) ) ) ).

thf(def_msymmetric,definition,
    ( msymmetric
    = ( ^ [X1: $i > $i > $o] :
        ! [X2: $i,X3: $i] :
          ( ^ [X4: $o,X5: $o] :
              ( X4
             => X5 )
          @ ( X1 @ X2 @ X3 )
          @ ( X1 @ X3 @ X2 ) ) ) ) ).

thf(def_mserial,definition,
    ( mserial
    = ( ^ [X1: $i > $i > $o] :
        ! [X2: $i] :
        ? [X3: $i] : ( X1 @ X2 @ X3 ) ) ) ).

thf(def_mtransitive,definition,
    ( mtransitive
    = ( ^ [X1: $i > $i > $o] :
        ! [X2: $i,X3: $i,X4: $i] :
          ( ^ [X5: $o,X6: $o] :
              ( X5
             => X6 )
          @ ( ( X1 @ X2 @ X3 )
            & ( X1 @ X3 @ X4 ) )
          @ ( X1 @ X2 @ X4 ) ) ) ) ).

thf(def_meuclidean,definition,
    ( meuclidean
    = ( ^ [X1: $i > $i > $o] :
        ! [X2: $i,X3: $i,X4: $i] :
          ( ^ [X5: $o,X6: $o] :
              ( X5
             => X6 )
          @ ( ( X1 @ X2 @ X3 )
            & ( X1 @ X2 @ X4 ) )
          @ ( X1 @ X3 @ X4 ) ) ) ) ).

thf(def_mpartially_functional,definition,
    ( mpartially_functional
    = ( ^ [X1: $i > $i > $o] :
        ! [X2: $i,X3: $i,X4: $i] :
          ( ^ [X5: $o,X6: $o] :
              ( X5
             => X6 )
          @ ( ( X1 @ X2 @ X3 )
            & ( X1 @ X2 @ X4 ) )
          @ ( X3 = X4 ) ) ) ) ).

thf(def_mfunctional,definition,
    ( mfunctional
    = ( ^ [X1: $i > $i > $o] :
        ! [X2: $i] :
        ? [X3: $i] :
          ( ( X1 @ X2 @ X3 )
          & ! [X4: $i] :
              ( ^ [X5: $o,X6: $o] :
                  ( X5
                 => X6 )
              @ ( X1 @ X2 @ X4 )
              @ ( X3 = X4 ) ) ) ) ) ).

thf(def_mweakly_dense,definition,
    ( mweakly_dense
    = ( ^ [X1: $i > $i > $o] :
        ! [X2: $i,X3: $i,X4: $i] :
          ( ^ [X5: $o,X6: $o] :
              ( X5
             => X6 )
          @ ( X1 @ X2 @ X3 )
          @ ? [X5: $i] :
              ( ( X1 @ X2 @ X5 )
              & ( X1 @ X5 @ X3 ) ) ) ) ) ).

thf(def_mweakly_connected,definition,
    ( mweakly_connected
    = ( ^ [X1: $i > $i > $o] :
        ! [X2: $i,X3: $i,X4: $i] :
          ( ^ [X5: $o,X6: $o] :
              ( X5
             => X6 )
          @ ( ( X1 @ X2 @ X3 )
            & ( X1 @ X2 @ X4 ) )
          @ ( ( X1 @ X3 @ X4 )
            | ( X3 = X4 )
            | ( X1 @ X4 @ X3 ) ) ) ) ) ).

thf(def_mweakly_directed,definition,
    ( mweakly_directed
    = ( ^ [X1: $i > $i > $o] :
        ! [X2: $i,X3: $i,X4: $i] :
          ( ^ [X5: $o,X6: $o] :
              ( X5
             => X6 )
          @ ( ( X1 @ X2 @ X3 )
            & ( X1 @ X2 @ X4 ) )
          @ ? [X5: $i] :
              ( ( X1 @ X3 @ X5 )
              & ( X1 @ X4 @ X5 ) ) ) ) ) ).

thf(def_mvalid,definition,
    ( mvalid
    = ( ^ [X1: $i > $o] :
        ! [X2: $i] : ( X1 @ X2 ) ) ) ).

thf(def_minvalid,definition,
    ( minvalid
    = ( ^ [X1: $i > $o] :
        ! [X2: $i] : ( (~) @ ( X1 @ X2 ) ) ) ) ).

thf(def_msatisfiable,definition,
    ( msatisfiable
    = ( ^ [X1: $i > $o] :
        ? [X2: $i] : ( X1 @ X2 ) ) ) ).

thf(def_mcountersatisfiable,definition,
    ( mcountersatisfiable
    = ( ^ [X1: $i > $o] :
        ? [X2: $i] : ( (~) @ ( X1 @ X2 ) ) ) ) ).

thf(conj,conjecture,
    ! [X1: $i,X2: $i > $o] :
      ( ! [X3: $i] :
          ( ( wife @ peter @ X1 @ X3 )
         => ( X2 @ X3 ) )
     => ( X2 @ X1 ) ) ).

thf(h0,negated_conjecture,
    ~ ! [X1: $i,X2: $i > $o] :
        ( ! [X3: $i] :
            ( ( wife @ peter @ X1 @ X3 )
           => ( X2 @ X3 ) )
       => ( X2 @ X1 ) ),
    inference(assume_negation,[status(cth)],[conj]) ).

thf(h1,assumption,
    ~ ! [X1: $i > $o] :
        ( ! [X2: $i] :
            ( ( wife @ peter @ eigen__0 @ X2 )
           => ( X1 @ X2 ) )
       => ( X1 @ eigen__0 ) ),
    introduced(assumption,[]) ).

thf(h2,assumption,
    ~ ( sP4
     => sP1 ),
    introduced(assumption,[]) ).

thf(h3,assumption,
    sP4,
    introduced(assumption,[]) ).

thf(h4,assumption,
    ~ sP1,
    introduced(assumption,[]) ).

thf(1,plain,
    ( ~ sP5
    | ~ sP2
    | sP1 ),
    inference(prop_rule,[status(thm)],]) ).

thf(2,plain,
    ( ~ sP3
    | sP2 ),
    inference(all_rule,[status(thm)],]) ).

thf(3,plain,
    ( ~ sP4
    | sP5 ),
    inference(all_rule,[status(thm)],]) ).

thf(refl_wife_peter,axiom,
    sP3 ).

thf(4,plain,
    $false,
    inference(prop_unsat,[status(thm),assumptions([h3,h4,h2,h1,h0])],[1,2,3,h3,h4,refl_wife_peter]) ).

thf(5,plain,
    $false,
    inference(tab_negimp,[status(thm),assumptions([h2,h1,h0]),tab_negimp(discharge,[h3,h4])],[h2,4,h3,h4]) ).

thf(6,plain,
    $false,
    inference(tab_negall,[status(thm),assumptions([h1,h0]),tab_negall(discharge,[h2]),tab_negall(eigenvar,eigen__1)],[h1,5,h2]) ).

thf(7,plain,
    $false,
    inference(tab_negall,[status(thm),assumptions([h0]),tab_negall(discharge,[h1]),tab_negall(eigenvar,eigen__0)],[h0,6,h1]) ).

thf(0,theorem,
    ! [X1: $i,X2: $i > $o] :
      ( ! [X3: $i] :
          ( ( wife @ peter @ X1 @ X3 )
         => ( X2 @ X3 ) )
     => ( X2 @ X1 ) ),
    inference(contra,[status(thm),contra(discharge,[h0])],[7,h0]) ).

%------------------------------------------------------------------------------
%----ORIGINAL SYSTEM OUTPUT
% 0.08/0.12  % Problem  : PUZ084^1 : TPTP v8.1.2. Released v4.0.0.
% 0.08/0.12  % Command  : lash -P picomus -M modes -p tstp -t %d %s
% 0.12/0.34  % Computer : n017.cluster.edu
% 0.12/0.34  % Model    : x86_64 x86_64
% 0.12/0.34  % CPU      : Intel(R) Xeon(R) CPU E5-2620 v4 @ 2.10GHz
% 0.12/0.34  % Memory   : 8042.1875MB
% 0.12/0.34  % OS       : Linux 3.10.0-693.el7.x86_64
% 0.12/0.34  % CPULimit : 300
% 0.12/0.34  % WCLimit  : 300
% 0.12/0.34  % DateTime : Sat Aug 26 21:55:11 EDT 2023
% 0.12/0.34  % CPUTime  : 
% 0.12/0.40  % SZS status Theorem
% 0.12/0.40  % Mode: cade22grackle2xfee4
% 0.12/0.40  % Steps: 14
% 0.12/0.40  % SZS output start Proof
% See solution above
%------------------------------------------------------------------------------